home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / corewars / uzi.rdc < prev    next >
Text File  |  1989-04-28  |  880b  |  26 lines
  1. ; UZI 1.0
  2. ; Spawns child tasks of UZI fame to kill everything with incremental bomb
  3. ; targets.
  4. ; by Maz Spork
  5.  
  6. copies    EQU    2        ; To kopier skal laves
  7. width    EQU    768        ; Afstand til kopien
  8. pglen    EQU    last-start    ; programmets l{ngde
  9. ;
  10. srce    DAT    0        ; pointer til dette program
  11. start    MOV    #copies    counter ; Set en t{ller til kopierne
  12. loop    MOV    #pglen    srce    ; programmets l{ngde
  13.     SUB    #width    dest    ; afstand til n{ste kopi
  14. copy    MOV    @srce    <dest    ; Kopier en celle
  15.     DJN    copy    srce    ; Indtil alt er kopieret
  16.     SPL    @dest        ; Split parallelt til kopien
  17.     DJN    loop    counter    ; Lav 'counter' kopier, derefter:
  18. uzi    MOV    3    -1    ; 'skyd' et projektil (DAT) ind 
  19.     ADD    offset    uzi    ; peg pistolen et andet sted hen
  20.     DJN    uzi    offset    ; bliv ved
  21. offset    DAT    -1        ; afstand mellem hvert projektil
  22. dest    DAT    0        ; Bruges til kopierne: destination
  23. counter    DAT    0        ; Antal kopier tilbage at lave
  24. ;
  25. last    END    
  26.